home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
NEW
/
J-Jim Butterfield
/
(n)j1.d64
/
cross-ref64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-24
|
1KB
|
7 lines
100 PRINT" CROSS REF":PRINT"[160] JIM BUTTERFIELD"
115 W=06
120 CLOSE1:INPUT"NAME OF PROGRAM";N$
130 OPEN1,8,3,N$+",P,R":GET#1,X$,Y$:IFX$<>CHR$(1)GOTO120
190 SYS2692:CLOSE1:INPUT"PRINTER";Z$:P=3:IFASC(Z$)=89THENP=4:W=11
200 OPEN4,P:PRINT#4,"CROSS-REF: ";N$:POKE190,W:SYS3136:PRINT#4:CLOSE4